home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 41 / PC Gamer IT CD 41 2-2.iso / utility / CISEI / 16BIT / INTRO1.DXR / 00033_TastiDOWN-UP.ls < prev    next >
Encoding:
Text File  |  1998-10-06  |  1.3 KB  |  48 lines
  1. property NumCanale, nonpremuto, premuto, evidente, CursorUP, CursorDOWN
  2.  
  3. on birth me, c, np, pr, ev, cu, cd
  4.   set the NumCanale of me to c
  5.   set the nonpremuto of me to np
  6.   set the premuto of me to pr
  7.   set the evidente of me to ev
  8.   set the CursorUP of me to cu
  9.   set the CursorDOWN of me to cd
  10.   return me
  11. end
  12.  
  13. on abbassa me
  14.   global NumTasto, LastNumTasto
  15.   set LastNumTasto to NumTasto
  16.   set the cursor of sprite the NumCanale of me to the CursorDOWN of me
  17.   set the puppet of sprite the NumCanale of me to 1
  18.   set the member of sprite the NumCanale of me to member the premuto of me
  19.   updateStage()
  20. end
  21.  
  22. on alza me
  23.   global NumTasto, LastNumTasto
  24.   set the puppet of sprite the NumCanale of me to 0
  25.   updateStage()
  26.   if NumTasto = LastNumTasto then
  27.     set the cursor of sprite the NumCanale of me to the CursorUP of me
  28.     tastimain()
  29.     exit
  30.   end if
  31.   set LastNumTasto to 0
  32. end
  33.  
  34. on evidenzia me
  35.   global NumTasto, LastEvidente
  36.   set the cursor of sprite the NumCanale of me to the CursorUP of me
  37.   set the puppet of sprite the NumCanale of me to 1
  38.   set the member of sprite the NumCanale of me to member the evidente of me
  39.   set LastEvidente to NumTasto
  40.   updateStage()
  41. end
  42.  
  43. on disevidenzia me
  44.   set the puppet of sprite the NumCanale of me to 0
  45.   set the cursor of sprite the NumCanale of me to 0
  46.   updateStage()
  47. end
  48.